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ABSTRACT 



The design and implementation of the FORTRAN/8 compiler for 
the PDP-8 computer is described. This compiler was written using the 
XPL Compiler Generator System and runs on an IBM System 360. 
FORTRAN/8 accepts FORTRAN as the source language and generates 
code acceptable for execution on a PDP-8 computer. 
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I. INTRODUCTION 



FORTRAN/8 is a FORTRAN compiler which generates code accept- 
able for execution on a PDP-8 computer. * The compiler was written 
using the XPL Compiler Generator System [Ref. 1], and was implemented 
on an IBM System 360. 

A. STATEMENT OF THE PROBLEM 

A PDP-8 system consisting of a PDP-8/S computer, teletype, 
and PI-1250-1 data handling system has been assigned to the Oceano- 
graphic Department at the Naval Postgraduate School. This system is 
portable and frequently removed from this facility for use on oceano- 
graphic assignments. Consequently, users are denied the possibility 
of continual testing of FORTRAN programs. 

The FORTRAN/8 compiler was designed to provide users with the 
possibility of testing FORTRAN programs when the PDP-8 system was 
not available . 



The PDP-8 series is referred to as PROGRAMMED DATA 
PROCESSORS and are manufactured by DIGITAL EQUIPMENT CORPORATION, 
Maynard, Massachusetts. 
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B. TERMINOLOGY 

Throughout the discussion which follows, a general familiarity 
with basic computer terminology is assumed. The following notions 
are essential for comprehension of the remainder of the paper. 

1 . Compiler 

A compiler is a computer program which translates source 
programs written in some higher -level language (e.g., FORTRAN, or 
ALGOL) into machine language. The generated machine language is 
referred to as the object module. 

2 . Backus-Naur Form 

/ 2 

Backus-Naur Form (BNF) is a method of formally specifying 
a context-free phrase-structure grammar. It is presented in detail in 
the "Revised Report on the Algorithmic Language ALGOL 60," [Ref. 2]. 

In BNF, the brackets " < " and " > " enclose defined 
terms, but are omitted for basic elements of the language being 
described. Symbols : =" and " I ," which mean "is defined as" and 
"or," are used in the definitions of terms. 

As an example, the definition 
<identifier> ::= <letter> | <letter> <digit> 
states that an ^identifier> is defined as a <letter> or a <letter> 
followed by a <digit> . Thus, if ^letter> and <digit> are further 



2 

The Backus-Naur Form is also known as Backus-Normal Form. 
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defined as 



<letter> ::=aI B y! Z and 

<digit> ::= 0 l 1 8 | 9 



then an <identifier> can consist of a sequence of letters and digits, 
as long as the first character is a letter. 

BNF is used in the formal definition of the syntax of 
FORTRAN/8 (see Appendix A) . 

3 . Hash Coding 

Hash coding [Ref. 3], also known as scatter storage, is a 
term used to describe a technique for the storage and retrieval of data 
within a table. This method uses some feature of the data to be stored 
in order to calculate a table entry address. If a succeeding calculation 
selects a cell which is already in use, then a collision is said to exist. 

When a collision occurs, one of several methods can be 
used to store the latest data. One of these methods is to search the 
table for the next vacant table element. The data is entered into the 
vacant cell and a pointer is set so that the data can be accessed at 
some future point. 

Hash coding techniques normally decrease the access times 
for retrieval of data considerably when the data is accessed by content. 

4 . XPL Compiler Generator System 

The FORTRAN/8 compiler was constructed using the XPL 
Compiler Generator System (CGS) [Ref. 1]. This system is fundamentally 
composed of two programs: ANALYZER and SKELETON. 
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XPL, a block-structured language used by th XFL CGI , 
is a dialect of PL/l. Designed specifically for compiler writing, XI L 
is easy to learn and contains the necessary constructs for table manipu- 
lation required by compilers. 

ANALYZER is a program which accepts the BNF specification 
of a grammar, determines the acceptability of that grammar, and produces 
a set of parsing decision tables. The acceptability is based on the 
Mixed-Strategy Precedence (MSP) parsing algorithm used by SKELETON. 

The MSP parser is based on simple precedence analysis 
[Ref. 9], with additional tables to make parsing decisions when more 
context is required . 

SKELETON is a program which, with the addition of the 

o 

ANALYZER produced tables, will act as a syntax checker and a basis 
for constructing a compiler. The essential procedures of SKELETON are 
shown in Figure 1. The complete program is listed in [Ref. 1]. 

The main body of SKELETON consists of a call to MAIN_ 
PROCEDURE. This call starts the compilation process by calling 
INITIALIZE to set the global constants. Control of the parsing process 
is then passed to COMPILATION_LOOP. 

Each call from COMPILATION_ LOOP to SYNTHESIZE 
corresponds to an application of a BNF production in the source 
language. The particular elements for a production are located by 
SCAN and passed to STACKING. STACKING, a parsing decision function, 
places the elements in a stack until sufficient elements are available 
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to cause a stack reduction. If sufficient elements are a / l_.bi 
a reduction then REDUCE will search the list of BNF productions 
seeking a match. PR_OK will be invoked to verify the selected 
production . 

SYNTHESIZE is responsible for associating meaning with the 
productions of the BNF grammar. It has one parameter which corresponds 
to the BNF production number. This argument will be applied in the 
pending reduction. 

In SKELETON, SYNTHESIZE consists of a case statement 
on the production number. The completed SYNTHESIZE in FORTRAN/8 
will consist of a giant case statement where each case will correspond 
to a rule in the grammar. It is within this procedure that the majority 
of the object code will be emitted. 
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RELATIONS AMONG PROCEDURES IN SKELETON 



O 

l — i 

H 
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MAIN PROCEDURE 



II. PDP-8 HARDWARE 



The PDP-8 was designed for use as a small-scale general 
purpose computer using twelve bit binary words and two's complement 
arithmetic. Each of the four basic components of this computer will be 
discussed in this section. These components are: (1) arithmetic unit; 

(2) control unit; (3) memory unit; and (4) input/output units. A complete 
description of the PDP-8 computer is available from Digital Equipment 
Corporation [Refs. 7 and 8]. 

A. ARITHMETIC UNIT 

The arithmetic unit accepts data from input devices and transmits 

o 

processed data to output devices. This unit functions under the direction 
of the control unit and consists of an accumulator (AC) and a link. The 
accumulator is twelve bits in length and corresponds to the PDP-8 word 
size. Bits within the accumulator are numbered 0-11 starting at the 
left. The link bit, logically a part of the accumulator, is complemented 
whenever binary operations cause a carry from the accumulator. 

Octal numbers within the range -3 777 0 to 3777 (or -2047. A to 
2047^) can be represented in the accumulator. The zeroth bit 
(leftmost) is reserved for the sign bit and the presence of a "1" in this 
position indicates a negative number. 

Inclusion of the Floating Point Package [Ref. 4] allows interpre- 
tation, execution, and input/output of numbers ranging from -10 — 
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to 10— . This package requires the use of a three wora accun ui at or 

to represent the number. This accumulator, which is called the floating 

point accumulator (FAC) , is located on page zero in addresses 44 to 

8 

46g. The first word contains the exponent with its sign in the zeroth bit. 
The mantissa is stored in the following two words with the sign of 
the number in the zeroth bit of the word following the exponent. Numbers 
requiring three words for storage are defined as "real" within the 
FORTRAN/8 compiler. 

B. CONTROL UNIT 

The control unit specifies program flow and is divided into three 
areas: (1) the program counter; (2) the instruction register; and (3) the 
major state generator. 

The program counter uses a twelve bit register to determine 
program sequence and indicates the next address from which an in- 
struction will be taken for execution. Unless a branching operation 
occurs, the program counter is incremented by one each time an 
instruction is entered into the instruction register. 

The instruction register uses a three bit register to hold the 
operation code of the current instruction. The three bits correspond 
to bits 0-2 in the address indicated by the program counter. 

The major state generator interprets the instruction being 
executed and sequentially enters one or more of the following states. 
During the fetch state, an instruction is loaded into the memory buffer 
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register from core memory at the address indicated by th pi 
counter. The presence of a "1" in bit three of the instruction indicaccs 
indirect addressing is required and the defer state is entered. The 
major state generator then executes the instruction after entering the 
execute state. Each state requires 1.5 microseconds for execution. 

C. MEMORY UNIT 

The memory unit consists of a twelve bit memory address register, 
a twelve bit memory buffer register and a 4096 word magnetic core 
memory o 

The memory address register contains the address of the in- 
struction currently selected for reading or writing. It can also be used 
to specify the next instruction to be executed. This register is set by 
either the memory buffer register or the program counter. 

The memory buffer register provides a temporary storage location 
for all words stored into or retrieved from the core memory. In addition, 
this register is used to update the program counter, set the memory 
address register and buffer words loaded into the accumulator. 

The magnetic core memory is random access. The 4096 words are 

arranged sequentially with addresses 0-3777 and divided into thirty-two 

o 

pages numbered 0-177g. Addresses on page zero and those on the same 
page as the current instruction can be referenced directly. Addressing 
between all other pages must be done indirectly. 
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D. INPUT/OUTPUT UNITS 



Input and output devices are combined since many devices soi vo 
both functions. The primary input/output device is the teletype with 
integral paper tape reader/ punch . This device accepts and transmits 
characters in ASCII code which differs from the representation within 
the computer. Consequently, the computer must convert the characters 
when data transfers are effected. 

The secondary input/output device is the PI-12 50-1 data handling 

system. This is a seven track magnetic tape system designed to 

operate with the PDP-8 family of computers. 

All input and output associated with the PDP-8 computer requires 

the use of the accumulator. Direct access to the core memory by a 
0 

peripheral is not possible. In addition, since there is a great difference 
in the processing speed of the computer and the speed of most peripheral 
devices, the computer must be programmed to check the readiness of a 
device prior to attempting the transfer of data . 
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III. A DESCRIPTION OF THE FORTRAN/8 COMPILER 



Construction of the FORTRAN/8 compiler was completed in two 
stages. The first stage consisted of expressing the FORTRAN/8 grammar 
in BNF in a form acceptable to the ANALYZER, while the second required 
major modifications and additions to SKELETON . 

The BNF productions for FORTRAN/8 are listed in Appendix A. In 
general the grammar rules follow those listed in [Ref. 5] . The major 
exception is in the read/write formats. Due to format complexity and 
core requirements, the standard FORTRAN read/write formats were 
abandoned in favor of the simpler but comprehensive formats proposed 
by Kildall in [Ref. 6] . A listing of FORTRAN constructs allowed by 
FORTRAN/8 is contained in Appendix B. 

Basic design considerations for the second stage were the fast 
storage/retrieval of data in the FORTRAN/8 compiler and efficient 
storage utilization in the PDP-8 computer. 

Storage utilization became extremely important due to a design 

requirement that the object module contain the Floating Point Package. 

This request, coupled with the requirement for supplementary PDP-8 

3 

machine language subprograms, reduced the core available by thirty 
percent. This meant that the program storage within the PDP-8 was 
limited to 2845 twelve bit words. 

3 

Descriptions of the PDP-8 machine language subprograms are 
contained in section IV. 
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The objective for the remainder of this section is tc y 
description of the tables and procedures used by the FORTRAN/ c 
compiler and to provide some details as to how the design goals were 
achieved . 

C 

A. TABLE DESCRIPTIONS 

Various tables are referenced for storage and retrieval of data 
throughout the compiler. This section describes the construction and 
purposes of the major tables . 

1 . The Program Reference Table 

The program reference table (PRT) contains attributes of 
variables defined in the program block (subprogram or main program) 
currently being compiled. This table is divided into three segments: 

0-126 hash field 

127-146 common variable cells 

147-353 program variable cells 

An explanation of information stored within common and program variable 
cells is given in Figure 2 . 

The PRT uses hash coding for the storage and retrieval of variables. 
Entry to this table is based on the number of characters in the 
variable name plus the EBCDIC value of the first three characters. The 
remainder after division by 127 produces the hash code entry to the hash 
field . 

If the location addressed by the hash code entry contains a zero 
then a pointer to the next available program variable cell (indicated by 
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THE PROGRAM REFERENCE TABLE 



353 



1*7 

1*0 



129 



Program Variable Storage 



* 



Common Variable Storage 

i 



in 






COLLISION 


CORE 


SYMBOL 


TYPE 


PARM 


ADDRESS 


LOCATION 


POINTER 


I2.<> 


i i 



Hash 

Field 

1 



FIELD NAME BITS 



DESCRIPTION 



Type 



2 



Parm 1 



Collision 9 



Core Location 12 



0 = integer variable 

1 = real variable 

2 = integer array 

3 = real array 

if 1 then the variable is a 
parameter to the subprogram 
currently being compiled 

a pointer to the variable which 
collided with the variable 
occupying this cell 

core address of variable 



Symbol 



8 pointer to the character representation 

of the variable in this cell. 



FIGURE 2 



pointer PT) is entered in the hash field. Variable attribu: s at i, ■ 
entered in the program variable cell. The variable name is stored in 
the SYMBOL table (an XPL character array) . 

Collisions are resolved by placing variable attributes in the next 
available program variable cell. In this case, however, the pointer 
to the program variable cell is entered in the collision field of the 
previously entered variable. 

A variable is relocated to the next available common variable 
cell (indicated by pointer SC) when the variable name is encountered 
in a COMMON statement. A maximum of twenty variables may be entered 
into COMMON. 

Program variable cells are local to a program block. Consequently, 
the hash field entries pointing to program variable cells are reset to 
zero when an END statement is read from the FORTRAN source deck. 

2. PTABLE 

The PTABLE contains attributes for the subprograms read 
from the FORTRAN source deck. Each cell within the table corresponds 
to one subprogram and has five fields as shown in Figure 3. 

The information content of the Type, Found and Parm fields 
is used by SYNTHESIZE for error analysis purposes, along with decisions 
concerning the emission of code. 

The Reference field refers to an address on page zero of the 
PDP-8 core. This address contains the location of the beginning (entry) 
of the subprogram. 



21 



PTABLE 




FIELD NAME 



Type 



Found 



Parm 



Reference 



Storage 



BITS DESCRIPTION 

3 0 = unknown 

1 = function subprogram 

2 = subroutine subprogram 

1 If this field contains a "1" then 

the subprogram was included 
within the source deck at 
execution time 

4 number of arguments for the 
subprogram 

12 program variables are passed to 

the subprogram via locations 
starting with this address at 
the top of page zero 

12 program variables are passed to the 

subprogram via locations starting with 
this address at the top of page zero 

FIGURE 3 
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Arguments for the subprogram are passed th. 



on page zero. The Storage field contains one of these accesses. !.. 
particular address contained in this field is for passing the first 
argument in the argument list. Succeeding arguments are passed 
through sequentially lower numbered cells. 

The FORTRAN/8 compiler allows a maximum of eleven 
FORTRAN subprograms. This restriction is due to the limited space 
on page zero . 

3 . The LAB Table 

The LAB array, shown in Figure 4, contains information con- 
cerning labels encountered in the FORTRAN source deck. The table is 
divided into the following two sections: 

o 

0-126 contains the label for a statement and is entered via 
hash coding 

127-255 each cell within this range of the LAB array corres- 
ponds to one of the cells between 0 and 12 6 and 
contains two pointers. The left 16 bits point to the 
beginning of the labeled statement while the right 16 
bits point to the end of the same statement. 

The beginning address is used for such FORTRAN source 
statements as the GO TO statement. The FORTRAN DO statement requires 
that both the beginning and the end of a labeled statement be known. 

The beginning is used for the extent of the loop while the end position 
is used for branching after completion of the required iterations . 
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THE LAB TABLE 



255 



127 

126 



1 

0 



4 . The FIXV and FIXM Tables 

FIXV is one of several stacks used by the parsing 
algorithm to store information. As originally intended in SKELETON, 

FIXV holds a thirty-two bit binary representation of an integer recognized 
as a terminal symbol by the scanner. If the particular element within 
the BNF production is not a number then the FORTRAN/8 compiler con- 
siders FIXV to be not in use. In this case that position in FIXV is used 
to hold PRT and PTABLE locations, the number of dimensions for an array 
or parameters to a subprogram, and a code type for the referenced 
variable as shown in Figure 5A. 



BEGINNING 


END 






HASH 




en : 


lRIES 


~J 5 


- } LABEL 


NOT USED 



Figure 4 
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THE FIXV AND FIXM STACKS 







Dimension 


PRT or PTABLE Location 


Type 


Counter 



24 bits 



4 bits 



4 bits 



Type Code 



0 Function Subprogram 

1 Subroutine Subprogram 

2 Integer Array 

3 Real Array 



FIGURE 5A 



THE FIXV AND FKM STACKS 



FIXV 



Not Used 



Exponent 



12 bits 



FIXM 



Not Used 



Mantissa 



24 bits 



FIGURE 5B 




If an element within a BNF production require^ th ' 

FIXV for number storage then both FIXV and FIXM may receive a poriicn 
of the number. The portion each receives is determined by the procedure 
SCAN . If SCAN does not find a decimal point in the number field then 
the number value is stored in FIXV as originally intended in SKELETON . 
Flowever, a decimal point within the number field indicates a real 
number and three cells are required to store the value into the PDP-8 
core memory. In this case FIXV will contain the exponent while FIXM 
contains the mantissa as shown in Figure 5B. 

5 . The LQC Stack 

The LOC stack is a stack similar to FIXV, and parallels 
the PARSE_STACK. This stack contains information concerning the core 
location for expressions, variables, and constants found as elements 
of a BNF production. The three fields of this stack are shown in 
Figure 6. 

The information content of the LOC stack is used primarily 
for determining indirect addressing requirements. Indirect addressing 
is denoted by the presence of a "1" in the address field, and occurs 
when the expression does not reside on page zero or on the same page 
as the instructions. The type field contains either a "0" or a "1" which 
designates that the referenced expression is of type integer or real 
respectively . 



26 



THE LOC STACK 



CORE LOCATION 


ADDRESS 


TYPE 


2 8 bits 


2 bits 


2 bits 


FIGURE 6 





THE CODE ARRAY 


LABEL 


END 


16 bits 

0 




16 bits 


FIGURE 7 




THE VCELL_ADDRESS TABLE 




CORE LOCATION 


PRT LOCATION 



16 bits 16 bits 



FIGURE 8 




6 . 



The CONSTANT 1/CON STANT2 Table 

The combination of CONSTANT 1 and CON STAN T2 lorm a 



table for storage of both integer and real numbers which appear as 
constants in the FORTRAN source deck (e.g. , on the right of an 
assignment statement) . This is a hash coded table whose entries are 
based on the value of the number. With one exception the configurations 
of CONSTANT 1 and CONSTANT2 correspond to FIXV and FIXM respectively. 
This exception concerns CONSTANT1. In addition to the exponent stored 
in FIXV, CONSTANT1 also contains the PDP-8 core address of the 
referenced constant. 

The table is initially loaded with those pre-set constants 
found on page 0 of the PDP-8 memory map (see Appendix D) . Additional 
entries to the table are effected when: 

a. the scanner reads a number from the FORTRAN source 
deck and 

b. the number has not been previously entered in the 
CONSTANT 1/CON STANT2 table. 

The FORTRAN /8 compiler uses the CON STAN T1/CONSTANT2 
table to ensure that the same constant will not be given additional 
storage when it is encountered a second time by SCAN. This is most 
important in the case of real numbers which require three PDP-8 memory 
cells to store but only one cell to reference. 
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7. 



The CODE Array 



The CODE array contains PDP-8 object code. During 
compilation, this array also contains references to labels. The cells 
referring to labels are configured as shown in Figure 7. These cells 
receive the address of either the beginning or end of the labeled state- 
ment at the end of each program block. 

8. The VCELL_ ADDRESS Table 

The VCELL_ADDRESS table performs a function similar to 
the CONSTANT1/CONSTANT2 table. Each cell in this table (see 
Figure 6) contains the core location and an address on the current page 
through which that variable has already been accessed. It is through 
this table that the FORTRAN/8 compiler ensures that a maximum of one 
reference to a particular variable appears on each PDP-8 memory page. 

B. FORTRAN/8 COMPILER ORGANIZATION 

The forty-eight procedures for FORTRAN/8 are organized into six 
main categories: (1) Input; (2) Error; (3) Scan; (4) Initialization; 

(5) Code Emission; and (6) the Syntactic Parsing Functions . Of the 
twenty procedures in SKELETON , fifteen were retained with little or no 
modification. Those procedures modified were: SCAN, INITIALIZATION, 
ERROR, REDUCE, and SYNTHESIZE. 

The relations among the major procedures are listed in Figure 9. 
Appendix C contains an alphabetic listing of all procedures and the 
procedures from which they are called. 
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RELATION AMONG PROCEDURES IN FORTRAN/8 



Eh 

< 

2 

cc 




s 

o 



H 




cu 
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MAIN PROCEDURE 



The syntactic parsing functions are discussed in ch.-i.an .c [. A. 1]. 

1 . Error 

The error section is composed of procedures I_FORMAT, 
ERROR, READ_OCTAL and LIST_CARD. 

Procedure ERROR prints a mnemonic error message, counts 
total and severe errors, and terminates the compilation in the case of 
excessive errors. Procedure I_FORMAT is concerned with the format of 
the error message. 

Procedure READ_OCTAL converts the binary representation 
of the parameter to octal. This procedure is used primarily for printing 
the CODE array. 

Procedure LIST_CARD holds the card image being processed. 
Unless an error occurs, the card image will be printed after the statement 
has been parsed. If an error occurs during the parsing operation, the 
card image is printed before the error message. 

2 . Input Section 

The input section consists of a single procedure named 
GET_CARD. This procedure reads the card images of the FORTRAN source 
deck. The latest card image is held in the character string BUFFER 
while the following card is in BUFFERl. This allows determination of 
continuation cards. GET_CARD also adds the required by SCAN to 
determine the end of a statement. 
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3. 



Scan 



Scan is composed of two procedures: SCAN and COMPUTE. 

The only modification to SCAN as it appears in SKELETON was to provide 
the ability to scan floating point numbers. When the decimal point is 
found, the number values to the left and right of the decimal point are 
passed to COMPUTE. COMPUTE converts the fractional decimal repre- 
sentation of the scanned real number to exponential form for COMPILATION 
LOOP to insert into FKV and FIXM. 

4 . Initialization 

The initialization section consists of one procedure called 
INITIALIZATION . This procedure: 

a. sets the global constants; 

b. inserts PDP-8 page zero entries into the code array; 

c. inserts the PDP-8 machine language subprograms 
into the CODE array; and 

d. loads a jump indirect instruction into core location 

200 8 . 

The jump instruction allows the user to place FORTRAN subprograms 
before the main program and ensures that execution of the PDP-8 
program will always commence at address 2 00 . Just prior to the return 

O 

from INITIALIZATION, the PDP-8 memory map is configured as shown 
in Appendix D. 
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5. 



Code Emission 



The code emission section consists of twenty-six pro- 

4 

cedures whose relationships are shown in Figure 10. SYNTHESIZE is 
the driving procedure in this section. The remaining procedures can be 
separated into the following six categories: (1) procedures concerning 
FORTRAN subprograms; (2) the subscripting of variables; (3) control of 
simple variables; (4) the referencing of labels; (5) the assignment of 
temporary cells; and (6) the procedures for code emission. 

a. Procedures Concerning FORTRAN Subprograms 

Contrary to most FORTRAN compilers, FORTRAN/8 
permits the placing of FORTRAN subprograms both before and after the 
main program. The starting address for each subprogram is listed on 
page zero (see Appendix D) and addressed indirectly. SET_PROC obtains 
an address for indirectly addressing the procedure from GET_PCELL and 
places the initial values in PTABLE . Cells for passing parameters are 
taken from the top of page zero and the variable PARMCELL tallies the 
usage of these cells. FIND_PROC locates a procedure already entered 
in PTABLE. 



4 

In order to understand how SYNTHESIZE passes information from 
one reduction to another, the user must familiarize himself with the 
system of flags (shown in Figure 11) and the stacks described in [Ref. 1] . 
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RELATION AMONG PROCEDURES CALLED BY SYNTHESIZE 
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SYNTHESIZE 



FLAGS USED IN FORTRAN/8 



AFLAG 

CFLAG 

DFLAG 



RFLAG 

SFLAG 



CODE EMISSION SECTION 



if set (1) then real expressions are currently being 
processed and the Floating Point accumulator is in use 

if set (1) then the FORTRAN statement being compiled 
is a subroutine call. 

used for dimension, declaration and common statements 

Value Description 

0 INTEGER 

1 REAL 

2 DIMENSION 

3 into main body of subprogram or 
main program 

4 DATA 

5 COMMON 

checks to ensure at least one RETURN statement is 
inside the FORTRAN subprogram body. If set (1) when 
reaching an END statement then no RETURN statement 
was included within the subprogram 

if set (1) then currently processing a FORTRAN 
subprogram, else 0 



FIGURE 11 
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b. The Subscripting of Variables 

Storage for subscripted variables is obtained from 

procedure GET_ACELL on the basis of the number of dimensions, whether 

the variable is declared real or integer, and the extent of each dimension 

for the variable. The number of cells assigned by GET_ACELL for storage 

of the subscripted variable is determined by the following formula: 

if subscripted array is of type real 

then T = 3 

otherwise T = 1 

n = number of dimensions 

th 

r. = extent of the i dimension 



cells assigned = n + 



1 + T(7T 



i=l 



r.) 



Storage for these cells is obtained from page 2 6 0 starting at address 

O 

5435g. Succeeding cells are taken from sequentially lower numbered 
core addresses. Figure 12 shows an example of storage for both an 
integer array(I) and a real array (R) . 

The address of a particular element of a subscripted 
variable is computed using the following formula: 
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n = number of dimensions 

u. = size of the i^ dimension 
1 



D 

1 



r. 

1 

L 



.f 



if i = n then 1 (3 fo real array) 

otherwise u. , . D. , , 
l+l l+l 



v. 

, , ,th .. 

= extent of the i dimension 
= base of array storage block 
n n 



address = ? r D 
V i i 



D + L + n + 1 
i 



i=l i-1 

The values for D. through D , and < D.'s are stored in the array 
1 n-l v i 

storage block as well as a negative number which represents the number 
of dimensions.^ These values are used at compile time by procedures 
INSERT_DATA and SUBSCRIPT to insert initial values into the subscripted 
variables . 



c. Control of Simple Variables 

Procedures ENTER and ENTERl place the variable 
names and attributes in the PRT . ENTERl also calls procedure SET to 
determine the variable's type according to the standard FORTRAN rules. 

If the first letter of the variable is I ( J f K,L ( M, or N then the variable 
is typed as an integer and requires one cell for storage. Otherwise, the 



The dimensions are stored in negative form due to the PDP-8 
machine instructions and the manner in which subscripting is done at 
execute time. 
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SUBSCRIPTED VARIABLE STORAGE 



PDP-8 Memory Map 
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variable is typed as a real and requires three cells. Th st: ~ ^ 

for simple variables are obtained from the procedure GET_VCLi..u an 
are called VCELLs • GET_VCELL provides these cells from the top of 
the page currently being loaded with instructions . 

The procedure LOOKUP is used to locate a variable 
in the PRT . Entries to the hash field of the PRT are obtained from 
procedure HASH. Finally, COMMON_CHECK relocates a variable within 
the PRT from a program variable cell to a common cell when the variable 
name is contained in a common statement. 

d. The Referencing of Labels 

The beginning and end of each labeled statement are 
saved within the procedure FIND_LAB. Procedure SETLAB calls 

o 

GET_VCELL and sets the returned VCELL so that the referenced label can 
be reset at the end of the program block. An error message will be 
printed if the referenced label is not located by the time the scanner 
reaches an END statement. 

e. The Assignment of Temporary Cells 
Temporary cells are located on page 0 between 

addresses 76^ and 177^ and are called TCELLs. Procedure GET_TCELL 
competes with PARMCELL for access to this area of the PDP-8 memory. 
Any overlap between TCELL and PARMCELL will require the FORTRAN 
statement to be separated into two or more statements or the number of 
subprogram parameters to be reduced. All TCELLs become available for 
assignment at the beginning of each FORTRAN statement. 
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f. The Procedure for Code Emission 

Procedure STORE_CODE inserts the PDP-8 instructions 
into the CODE array starting at address 202 . As the code generation 

O 

approaches the VCELLs in use on the same page, procedure ADVANCE_ 
PAGE will emit a jump to the following page. ADVANCE_PAGE will also 
ensure that the Floating Point Package is exited prior to and reset after 
the jump. 

The procedure EMIT_CHECK determines if the refer- 
enced expression must be indirectly addressed. A VCELL is used for 
indirect addressing if the constant or variable is assigned off the page 
on which instructions are currently being inserted. The requirement for 
indirect addressing is determined from CONSTANT1, LOC , or the absence 
of the variable in the VCELL_ADDRESS table. 

Procedure STORE_CONSTANT obtains storage from 
GET_VCELL and inserts the constant into these cells. It also updates 
the CON STAN T 1/CON STANT2 table. 

Frequently addresses must be passed as parameters 
to one of the PDP-8 machine language subprograms. These addresses 
follow the jump instruction to the subprogram. Procedure EMIT_ADDRESS 
ensures that the required addresses are loaded after the jump. 

The process of inserting of character strings into the 
CODE array is accomplished by procedure EMIT STRING. This procedure 
uses the procedure STORE_ASCII_CODE to convert the IBM EBCDIC 
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character representation to ASCII code. A listing of the ASCII 1: 
characters available to FORTRAN/8 users is contained in Appendix E. 

C. FORTRAN/8 LISTINGS 

The listing produced by the FORTRAN/8 compiler includes each 
card image from the source deck and any error messages which occurred 
during compilation. Additions to this listing can be effected by the use 
of the control cards which are described in Appendix G. 
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IV. FORTRAN/8 OBTECT MODULE 



The generation of the object module (defined as the CODE array 
in FORTRAN/8) begins in the procedure INITIALIZATION. Before entering 
page zero references however, the content of each address in the CODE 
array is set to zero. Therefore, PDP-8 users are assured that the content 
of each address in a subscripted variable is zero at execution time. 

PDP-8 machine language subprograms, which appear in the declarations 
of FORTRAN/8, are then loaded into the CODE array. 

A. PDP-8 INSTRUCTION SET 

g 

Two types of instructions are available for the PDP-8: memory 
reference, and augmented. The memory reference instructions are used 
to store and retrieve information from core memory, while the augmented 
instructions accomplish specialized tasks. The operation code of both 
types is specified in the left most three bits (positions 0-2) of the 
twelve bit word . 

1 . Memory Reference Instructions 

Memory reference instructions are designated by operation 
codes zero through five. These instructions use the right most seven 



^A listing of the PDP-8 instructions used by FORTRAN/8 is 
contained in Appendix H. 
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bits (positions 5-11) as an address field and a direct ref :■ n 
made to any location on the current page or page zero. If bit tnree 
contains a "1" then the address field refers to the current page, other- 
wise it refers to page zero. 

2 . Augmented Instructions 

There are two augmented instructions: input/output transfer 
(operation code six) and operate (operation code seven) . Both augmented 
instructions can be microprogrammed to perform several sequential 
operations by the setting of bits three through eleven. Neither of these 
instructions accesses core memory. 

The input/output transfer instruction initiates the operation 
of peripheral equipment and effects information transfers between the 

o 

arithmetic unit and an I/O device. 

Operate instructions are divided into Group 1 and Group 2 . 
The first group is principally for clear, complement, rotate and increment 
operations. The presence of a "1" in bit three designates Group 2 
instructions which check the accumulator and perform skipping operations 
based on this check. 

B. PDP-8 SUBPROGRAMS 

Ten of the eleven subprograms loaded into the object module will 

7 

be covered in this section. The eleventh, the Floating Point Package 
and corelated Input/Output subprograms, are covered in [Ref. 5]. 

7 

Appendix I contains address sequential listings of the ten sub- 
programs 



1 . I/O Subprograms 

WRITE_STRING emits a continuous string of ASCII characters 
to the teletype. These characters are read from the addresses following 
the jump subroutine instruction (JMS) . A return to the program is 
accomplished by reading a WEXT instruction. 

TAB returns the teletype carriage and then advances the 
carriage a number of spaces equal to the value found following the key- 
word TAB in the FORTRAN source deck. 

The transmission of integer numbers is handled in the 
INTEGER_READ and INTEGER_WRITE subprograms. The argument for 
these subprograms is the address of the expression to be transferred. 

The Input/Output subprograms associated with the Floating Point Package 
and the floating point accumulator are used to complete the transfer. As 
a result, all numbers will be printed on the teletype in exponential form. 

2 . Subscripts 

All execution time subscript calculations are handled in the 

ARRAY_SUBSCRIPTOR subprogram. The subscripts for the desired 

variable are loaded into page zero addresses 0063 o -0065 prior to the 

o o 

JMS instruction. The last subscript is always entered in 0063 and is 

o 

negative if that variable is declared real. The ARRAY_SUBSCRIPTOR 
returns the calculated address . 

3 . Arithmetic Operations 

MULTIPLY and DIVIDE are used for integer multiplication 
and division operations. Both subprograms operate on the two addresses 
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following the JMS instruction and return the calculated va . M ' LY 
works on the principle of successive addition while DIVIDE works wi.a 
successive subtraction. 

EXPONENTIATION also operates on the two addresses 
following the JMS instruction. The first address is treated as the 
exponent and must refer to an integer expression. The second address 
is the number to be exponentiated and this address must refer to a real 
expression. The result is returned in the floating point accumulator. 

FLOAT converts an integer expression to a real expression 
and places the result in three TCELLs . 
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V. CONCLUSIONS 



The PDP-8 is an extremely versatile computer with considerable 
potential. It was found relatively easy to program and possesses a 
considerable inventory of usable instructions. 

Several FORTRAN source decks were tested on the FORTRAN/8 
compiler. The most comprehensive of these decks totaled sixty-three 
cards. This deck was compiled in approximately two seconds of CPU 
time. The object module (discounting page zero entries, PDP-8 machine 
language subroutines, and the storage area required for subscripted 
variables) required approximately twelve PDP-8 words for each source 
deck card. Based on this figure and the amount of usable core, it is 
estimated that the PDP-8 could handle a source deck exceeding 200 cards. 

Implementation of the FORTRAN/8 compiler at the Naval Postgraduate 
School completed the first of two phases to provide PDP-8 users with 
the capability to test FORTRAN programs. The second phase will consist 
of constructing a PDP-8 simulator on the IBM System 3 60. This simulator 
will accept the object module produced by FORTRAN/8 and provide users 
with a complete package for the testing and running of FORTRAN programs 
when the PDP-8 system is not available. 
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<TAB EXPRESS ION> ::= TAB EXPRESSIONS 



FORTRAN STATEMENTS ALLOWED IN FORTRAN/8 
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common variables must alwv/s 
be referenced by the same run 
once variable is in COMM 1 ' * , 
it must not be reentered in a 

DATA R(l) ,1 , R(2)/0 . 5 ,4 , 1 . 0/ succeeding program block 
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Subroutine Call CALL LARGE (ARRAY ,X ,Y) 
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WRITE (A , TAB 20, B) writes A against left margin • 

teletype, B will then be wi it 
starting in column 20 



ABS (e) absolute value for either real or integer expressions 
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APPENDIX C 



FORTRAN/8 PROCEDURE LISTING 



PROCEDURES 


CALLED BY 


ADVAN C E_P AGE * 


GET_VCELL 

SETLAB 

STORE_CODE 

STORE_ASCII_CODE 

SYNTHESIZE 


AF LAG_C HECK * 


SYNTHESIZE 


COMMON_CHECK 


SYNTHESIZE 


COMPILATION_LOOP 


MAIN_PROCEDURE 


COMPUTE 


SCAN 


DUMP 


SYNTHESIZE 


DUMPING 


DUMP 


DUMPIT 


PRINT_SUMMARY 


EMIT_ADDRESS * 


SYNTHESIZE 


EMIT_CHECK * 


SYNTHESIZE 


EMIT_STRING * 


SYNTHESIZE 


ENTER 


ENTERl 

SYNTHESIZE 


ENTERl 


SYNTHESIZE 



*Code emitting procedures 



PROCEDURES 


CALLED BY 


ERROR 


COMMGN_CHECK 

COMPIIATION_LOOP 

COMPUTE 

EMIT_STRING 

ENTER 

FIND_LABEL 

GET_PCELL 

GET_TCELL 

INSERT JCHECK 

REDUCE 

SCAN 

STACKING 

SYNTHESIZE 


FIND_LABEL 


SYNTHESIZE 


FIND_PROC 


SYNTHESIZE 


GET_ACELL 


SYNTHESIZE 


GET_CARD 


SCAN 


GET_PCELL 


SET_PROC 


GET_TCELL 


SYNTHESIZE 


GET_VCELL 


EMIT_CHECK 
ENTER1 
SET LAB 

STORE_CONSTANT 

SYNTHESIZE 


HASH 


COMMON_CHECK 

ENTER 

LOOKUP 


I_FORMAT 


LISTjCARD 


INITIALIZATION * 


MAIN_PROCEDURE 


INSERT_CHECK 


INSERT_DATA 


INSERT DATA * 


SYNTHESIZE 
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PROCEDURES 



CALLED 3Y 



LIST_CARD 


ERROR 

GETJCARD 


LOOKUP 


COMMON CHECK 
DUMPING 

SYNTHESIZE 


MAIN_PROCEDURE 


Initial Call 


PR_OK 


REDUCE 


PRIN T_DAT E_AN D_TI ME 


INITIALIZATION 
PRINT SUMMARY 



PRINT SUMMARY 



PRINT_TIME 


PRIN T_DATE_AN D_TI ME 
PRIN T_SUM MARY 


READjOCTAL 


DUMPING 

LISTjCARD 

SYNTHESIZE 


RECOVER 


REDUCE 

STACKING 


REDUCE 


CO MPILATlON_LOOP 
STACK_DUMP 


RIGHT_CONFLICT 


PR_OK 

RECOVER 


SCAN 


COMPILATION_LOOP 

INITIALIZATION 

RECOVER 


SET 


ENTER1 

SYNTHESIZE 


SETLAB * 


SYNTHESIZE 


SET PROC 


SYNTHESIZE 
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PROCEDURES 

STACKING 
STACK_DUMP 
STORE_ASCII_CODE 
STORE_CODE * 

STORE_CONSTANT * 
SUBSCRIPT 
SYNTHESIZE * 



CALLED BY 

COMPILATION_LOOP 

STACKING 

EMIT_STRING 

AFLAG_CHECK 

EMIT_CHECK 

SYNTHESIZE 

SYNTHESIZE 

INSERT_DATA 

REDUCE 
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APPENDIX D 



PDP-8 MEMORY MAP 



Page 0 



177 




176 


Temporaries 


76 




75 


7730 


74 


0000 


73 


0000 


72 


0000 


71 


6000 


70 


0001 


67 


7674 


66 


7652 


65 


0000 


64 


0000 


63 


0000 


62 


7600 


61 


Registers for 
Floating Point 


40 


Package 


37 


5563 


36 


5530 


35 


5514 


34 


5474 


33 


5435 


32 




20 




17 


Auto 


10 


Indexing 


7 


5600 


6 


7400 


5 


7200 


4 


0001 


3 


0002 


2 


7777 


1 


For Program 


0 


Interrupts 



Exponential Subprogram 

Floating Point 0.0 

Floating Point -1.0 

Divide Subprogram 
Multiply Subprogram 

For Subscripting Arrays 

Subscript Subprogram 



Integer Read Subprogram 
Integer Write Subprogram 
Write String Subprogram 
Tab Subprogram 
Float Subprogram 
^Addresses for indirectly 
Addressing the 
. FORTRAN subprograms 



Floating Point Intrepter 
Floating Point Input 
Floating Point Output 
Fixed Point 1 
Fixed Point 2 
Fixed Point -1 
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7777 

7756 

7730 

7674 

7652 

7600 

5600 

5563 

5530 

5514 

5474 

202 

201 

200 



Pages 1 —3 7g 



Rim Loader 



Exponentiation 

Subprogram 

Divide 

Subprogram 

Multiply 

Subprogram 

Subscript 

Subprogram 

Floating 

Point 

Package 

Integer Read 
Subprogram 
Integer Write 
Subprogram 
Write_String 
Subprogram 
Tab 

Subprogram 



Code 

Generated 

By 

FORTRAN/8 

Compiler 



Address of main prog r am 
JMP I 201 
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APPENDIX E 



ASCII CODE 



Character 


Code 


Character 


Code 


A 


301 


[ 


241 note 1 


B 


302 


it 


242 note 2 


C 


303 


# 


243 


D 


304 
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244 
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305 
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2 72 
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X 


330 


Line Feed 


212 


Y 


331 


Return 


215 


Z 


332 


Space 


240 
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260 






1 


261 


Note 1: explanation mark available 


2 


262 


as " " (11-7- 


■8 Punch) 


3 


263 






4 


264 


Note 2: double quote available 


5 


2 65 


as " | " (12-7- 


8 Punch) 
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266 
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267 
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270 
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271 
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DECLARE S CHARACTER; /* A TEMPORARY USED VARIOUS PLACES 



/* THE ENTRIES IN PRM ASK ( ) ARE USED TO SELECT CUT PORTIONS OF CODED 

PRODUCTIONS AND THE STACK TOP FOR COMPARISON IN THE ANALYSIS ALGORITHM */ 
DECLARE PRM ASK ( 5 ) FIXED INITIAL (0, 0, "FF», "FFFF " » "FFFFFF" t "FFFFFFFF" ) ; 
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<LA8EL1> ::= <NUMBER> , 
L0C(MP)=FIND_LA6EL(FIXV(MP) ) ; 
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/* <EXPR5SS 1 0N> ::= - < TERM> */ 

D0;IF (LOC(SP) £ "1*0 = 0 

THEN 00; FM I TCK ( 1 , S P ) ; /* TAD */ 
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< SECONDA RY> :: = < VAR I ABLE> */ 

LOOKUP ( V AR ( MP ) ) = 0 THEN 

DO; IF VARtMP+l )=BYTE( '=» ) THEN RETURN; 

IF FIN0_PR0C(VARlMP) ) > 0 THEN RETURN; 

CALL ERROR (' UNKNOWN VARIABLE: • | I VAR ( MP ) , 2 ) ; END; 
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<SECCNDARY> ::= SORT ( <EXPRESSION> ) 

; I F ( LOC ( S P ) & " 1 •' » = 0 THEN CALL ERROR 

(•SORT REQUIFES PEAL EXPR ESS I ON ' , 2 ) ; 
AFLAGCK; 

EMITCK{ 5.SP-1 ) ; /* FGET */ 
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< BOOLEAN PR I MARY> ::= <LOGICAL EXPRESSION> 
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APPENDIX G 



FORTRAN/8 LISTING CONTROLS 



The following is a listing of control toggles which allow the user 
to print the code array and FORTRAN/8 tables during the listing. 

Each command must appear on a separate card. A dollar sign ($) 
must be punched in column one of the card and the control character 
must follow in column two. With the exception of control toggle L, all 
toggles are initially off. The first appearance of a control card 
complements the toggle (if off then it is turned on) . Succeeding 
appearances of the same control card again complements the toggle. 
Character Action 

o 

C causes the code generated by each source 



deck statement to follow a listing of that 
statement 



L 



causes the source deck statement to be listed 
along with the card count 



M 



causes the source deck card to be listed 
without the card count 



P 



causes the BNF productions to be listed while 
the source deck statement is being parsed. 

It should be noted that the statement will 
follow the productions . 



R 



upon completion of code generation the PDP-8 
memory map from Os to the page (current page) 
on which code generation ceased along with 
all addresses not equal to zero from the current 
page to address 5473 will be listed 
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Character 



Action 



S causes the PRT to be listed after each 

program block 

T causes the PTABLE to be printed at the end 

of compilation 
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APPENDIX H 



PDP-8 INSTRUCTION SET 



Mnemonic Code Operation 

BASIC INSTRUCTIONS 



AND 


0000 


logical AND 


TAD 


1000 


2's complement add 


ISZ 


2000 


increment and skip if zero 


DCA 


3000 


deposit and clear AC 


JMS 


4000 


jump to subroutine 


JMP 


5000 


jump 


IOT 


6000 


in/out transfer 


OPR 


7000 


operate 





GROUP 1 OPERATE 


MICROINSTRUCTIONS 


NOP 


7000 


no operation 


CLA 


7200 


clear AC 


CLL 


7100 


clear link 


CMA 


7040 


complement AC 


CML 


7020 


complement link 


RAR 


7010 


rotate AC and link right one 


RAL 


7004 


rotate AC and link left one 


RTR 


7012 


rotate AC and link right two 


RTL 


7006 


rotate AC and link left two 


IAC 


7001 


increment AC 





GROUP 2 OPERATE 


MICROINSTRUCTIONS 

V 


SMA 


7500 


skip on minus AC 


SZA 


7440 


skip on zero AC 


SPA 


7510 


skip on plus AC 


SNA 


7450 


skip on non-zero AC 


SNL 


7420 


skip on non-zero link 


SZL 


7430 


skip on zero fink 


SKP 


7410 


skip unconditionally 


OSR 


7404 


inclusive OR, switch register 


HLT 


7402 


halts the program 


CLA 


7600 


clear AC 



with AC 
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Mnemonic 



Code 



Operation 



COMBINED OPERATE MICROINSTRUCTIONS 



CIA 


7041 


complement and increment AC 


LAS 


7604 


load AC with switch register 


STL 


7120 


set link (to 1) 


GLK 


7204 


get link (put link in AC bit 11) 


CLA CLL 


7300 


clear AC and link 


CLA I AC 


7201 


set AC = 1 


CLA CMA 


7240 


set AC = -1 


CLL RAR 


7110 


shift positive number one right 


CLL RAL 


7104 


shift positive number one left 


CLL RTL 


7106 


clear link, rotate 2 left 


CLL RTR , 


7112 


clear link, rotate 2 right 


SZA CLA " 


7640 


skip if AC = 0, then clear AC 


SZA SNL 


7460 


skip if AC = 0 or link = 1 , or both 


SNA CLA 


7650 


skip if AC ^ 0, then clear AC 


SMA CLA 


7700 


skip if AC < 0, then clear AC 


SMA SZA 


7540 


skip if AC < = 0 


SMA SNL 


7520 


skip if AC < 0 or link is 1 , or both 


SPA SNA 


7550 


skip if AC > 0 


SPA SZL 


7530 


skip if AC > = 0, and if link is 0 


SPA dLA 


7710 


skip if AC > = 0, then clear AC 


SNA SZL 


7470 


skip if AC 7^ 0 and link = 0 





M Q 


MICROINSTRUCTIONS 


NOP 


7401 


no operation 


CLA 


7601 


clear AC 


MQL 


7421 


load MQ from AC then clear AC 


MQA 


7501 


inclusive OR the MQ with the AC 


CAM 


7621 


clear AC and MQ 


SWP 


7521 


swap AC and MQ 


ACL 


7701 


load MQ into AC 


CLA, SWP 


7721 


load AC from MQ then clear MQ 
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Mnemonic 



Code 



Operation 



TELETYPE KEYBOARD/READER 



KCF 


6030 


clear keyboard/reader flag, 
do not start reader 


KSF 


6031 


skip if keyboard/reader flag = 1 


KCC 


6032 


clear AC and keyboard/reader f 1 ; 
set reader run 


KRS 


6034 


read keyboard/reader buffer sta: 


KIE 


6035 


AC 11 to keyboard/reader 
interrupt enable F .F . 


KRB 


6036 


clear AC, read keyboard buffer, 
clear keyboard flags 




TELETYPE TELEPRINTER/PUNCH 


SPF 


6040 


set teleprinter/punch flag 


TSF 


6041 


skip if teleprinter/punch flag = ' 


TCF 


6042 


clear teleprinter/punch flag 


TPC 


6044 


load teleprinter/punch buffer 
select and print 


SPI 


6045 


skip if teletype interrupt 


TLS 


6046 


load teleprinter/punch buffer, 

select and print and clear 
teleprinter/punch flag 





FLOATING POINT 


INSTRUCTIONS 


FADD 


1000 


add to floating point AC 


FSUB 


2000 


subtract from floating point AC 


FMPY 


3000 


multiply floating point AC by 


FDIV 


4000 


divide floating point AC by 


FGET 


5000 


load floating point AC by 


F PUT 


6000 


store floating point AC by 


FNOR 


7000 


normalize floating point AC by 


FEXT 


0000 


floating point exit 


SQR 


0001 


floating point square 


SQRT 


0002 


floating point square root 



PSEUDO. INSTRUCTION 

WEXT 0000 WRITE STRING subroutine exit 
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APPENDIX I 



PDP-8 MACHINE LANGUAGE SUBPROGRAMS 
FLOAT SUBPROGRAM 



Address 


Code 


Label 


Mnemonic Description 


5435 


0000 


ENTRY, 




5436 


7100 




CLL 


5437 


7500 




SMA 


5440 


5243 




JMP . +3 


5441 


7120 




STL 


5442 


0362 




AND 


5443 


3046 




DCA 46 


5444 


7300 




CLA CLL 


5445 


3044 




DCA 44 


5446 


7204 




GLK 


5447 


7650 




SNA CLA 


5450 


5253 




JMP. +3 


5451 


1362 




TAD 


5452 


7040 




CMA 


5453 


7421 




MQL 


5454 


1046 




TAD 46 


5455 


7450 




SNA 


5456 


5262 




JMP. +4 


5457 


2044 




ISZ 44 


5460 


7010 




RAR 


5461 


5255 




JMP. -4 


5462 


1046 




TAD 46 


5463 


7510 




SPA 


5464 


5267 




JMP. +3 


5465 


7004 




RAL 


5466 


5263 




JMP. -3 


5467 


7010 




RAR 


5470 


7501 




MQA 


5471 


3045 




DCA 45 


5472 


3046 




DCA 46 


5473 


5235 




JMP I ENTRY 
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TAB SUBPROGRAM 



Address 


• Code 


Label 


Mnemonic Description 


5474 


0000 


ENTRY, 






5475 


1674 




TAD I ENTRY 




5476 


3313 




DCA A 




5477 


2274 




ISZ ENTRY 




5500 


4435 




JMS I 35 




5501 


0215 






/return 


5502 


0000 




WEXT 


/ exit 


5503 


1313 




TAD A 




5504 


7700 




SMA CLA 




5505 


5674 




JMP I ENTRY 




5506 


4435 




JMS I 35 




5507 


0240 






/space 


5510 


0000 




WEXT 


/ exit 


5511 


2313 




ISZ A 




5512 


5305 




JMP. -7 




5513 


0000 


A, 







WRITE STRING SUBPROGRAM 



Address 


Code 


Label 


Mnemonic Description 


5514 


0000 


ENTRY, 




5515 


7300 




CLA CLL 


5516 


6046 




TLS 


5517 


1714 




TAD I ENTRY 


5520 


2314 




ISZ ENTRY 


5521 


7450 




SNA 


5522 


5714 




JMP I ENTRY 


5523 


6041 




TSF 


5524 


5323 




JMP. -1 


5525 


6046 




TLS 


5526 


7300 




CLA CLL 


5527 


5317 




JMP. -8 
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INTEGER WRITE SUBPROGRAM 



Address 


Code 


Label 


Mnemonic Description 


5530 


0000 


ENTRY, 




5531 


3045 




DCA 4 5 


5532 


1045 




TAD 45 


5533 


7700 




SMA CLA 


5534 


5342 




JMP . +6 


5535 


1045 




TAD 4 5 


5536 


7040 




CMA 


5537 


1004 




TAD 4 


5540 


3045 




DCA 4 5 


5541 


1362 




TAD A 


5542 


7421 




MQL 


5543 


3046 




DCA 46 


5544 


3044 




DCA 44 


5545 


1045 




TAD 4 5 


5546 


7010 




RAR 


5547 


2044 




ISZ 44 


5550 


7440 




SZA 


5551 


5346 




JMP. -3 


5552 


1045 




TAD 4 5 


5553 


7004 




RAL 


5554 


7500 




SMA 


5555 


5353 




JMP. -2 


5556 


7010 




RAR 


5557 


7501 




MQA 


5560 


3045 




DCA 4 5 


5561 


5730 




JMP I ENTRY 


5562 


4000 


A, 


/mask 
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INTEGER READ SUBPROGRAM 



Address 


Code 


Label 


Mnemonic Description 


5563 


0000 


ENTRY, 






5564 


1044 




TAD 44 




5565 


1377 




TAD A 


C 


5566 


7700 




SMA CLA 




5567 


5375 




JMP. +6 




5570 


1045 




TAD 4 5 




5571 


7110 




CLL RAR 




5572 


3045 




DCA 45 




5573 


2044 




ISZ 44 




5574 


5364 




JMP. -8 




5575 


1045 




TAD 45 




5576 


5763 




JMP I ENTRY 




5577 


7765 


A, 







ARRAY SUBSCRIPTOR SUBPROGRAM 



Address 


Code 


Label 


Mnemonic Description 


7600 


0000 


ENTRY, 




7601 


1600 




TAD I ENTRY 


7602 


3357 




DCA BASE 


7603 


2200 




ISZ ENTRY 


7604 


1757 




TAD I BASE 


7605 


3360 




DCA DIM 


7606 


2357 




ISZ BASE 


7607 


1063 




TAD RN 


7610 


7500 




SMA 


7611 


5217 




JMP 


7612 


7040 




CMA 


7613 


3356 




DCA CALC 


7614 


1356 




TAD CALC 


7615 


1356 




TAD CALC 


7616 


1356 




TAD CALC 


7617 


3356 




DCA CALC 


7620 


2360 




ISZ DIM 


7621 


5223 




JMP 


7622 


5241 




JMP • 


7623 


2360 




ISZ DIM 


7624 


1757 




TAD I BASE 


7625 


3361 




DCA DI 


7626 


2357 




ISZ BASE 
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ARRAY_S UBSCRIPTOR SUBPROGRAM (Continued) 



Address 


Code 


Label 


Mnemonic Description 


7627 


1063 




TAD I 


7630 


7040 




CMA 


7631 


1004 




TAD 


7632 


3362 




DCA RI 


7633 


1362 




TAD RI 


7634 


2362 




ISZ RI 


7635 


5233 




JMP 


7636 


1356 




TAD CALC 


7637 


3356 




DCA CALC 


7640 


5220 




JMP 


7641 


1207 




TAD 


7642 


3327 




DCA 


7643 


1757 




TAD I BASE 


7644 


7040 




CMA 


7645 


1003 




TAD 3 


7646 


1357 




TAD BASE 


7647 


1356 




TAD CALC 


7650 


5200 




JMP I ENTRY 


7651 


0000 




NOP 


7756 


0000 


CALC , 




7757 


0000 


BASE, 




7760 


0000 


DIM, 




7761 


0000 


DI, 




7762 


0000 


RI, 





MULTIPLY SUBPROGRAM 



Address 


Code 


Label 


7652 


0000 


ENTRY 


7653 


7300 




7654 


1652 




7655 


3356 




7656 


1756 




7657 


3356 




7660 


2252 




7661 


1652 




7662 


3357 




7663 


1757 




7664 


7040 





Mnemonic Description 



CLA CLL 

TAD I ENTRY /Multipler Address 

DCA A 

TAD I A 

DCA A 

ISZ ENTRY 

TAD I ENTRY /Multiplicand Address 
DCA B 
TAD I B 
CMA 
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MULTIPLY SUBPROGRAM (Continued) 



Address 


Code 


Label 


Mnemonic Description 


7665 


3357 




DCA B 


7666 


2252 




ISZ ENTRY 


7667 


2357 




ISZ B 


7670 


5272 




JMP. +2 


7671 


5652 




JMP I ENTRY 


7672 


1356 




TAD A 


7673 


5267 




IMP. -4 


7756 


0000 


A, 




7757 


0000 


B, 





DIVIDE SUBPROGRAM 



Address 


Code 


Label 


Mnemonic Description 


7674 


0000 


ENTRY, 






7675 


7300 




CLA CLL 




7676 


1674 




TAD I ENTRY 


/Dividend Address 


7677 


3356 




DCA A 




7700 


1756 




TAD I A 




7701 


3356 




DCA A 




7702 


2274 




ISZ ENTRY 




7703 


1674 




TAD I ENTRY 


/Divisor Address 


7704 


2274 




ISZ ENTRY 




7705 


3357 




DCA B 




7706 


1757 




TAD I B 




7707 


7040 




CMA 




7710 


1004 




TAD 4 




7711 


7440 




SZA 




7712 


5314 




JMP. +2 




7713 


7402 




HLT 


/Divide by Zero? 


7714 


3357 




DCA B 




7715 


3360 




DCA C 




7716 


1356 




TAD A 




7717 


1357 




TAD B 




7720 


2360 




ISZ c 




7721 


7540 




SMA SZA 




7722 


5317 




JMP. -3 




7723 


7500 




SMA 




7724 


5326 




JMP. +2 




7725 


1002 




TAD 2 
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DIVIDE SUBPROGRAM (Continued) 



Address 


Code 


Label 


Mnemonic Description 


7726 


1360 




TAD C 


7727 


5674 




JMP I ENTRY 


7756 


0000 


A, 




7757 


0000 


B, 




7760 


0000 


c, 





EXPONENTIATION SUBPROGRAM 



Address 


Code 


Label 


Mnemonic Description 


7730 


0000 


ENTRY, 




7731 


7300 




CLA CLL 


7732 


1730 




TAD I ENTRY 


7733 


3356 




DCA A 


7734 


1756 




TAD I A 


7735 


7040 




CMA 


7736 


1004 




TAD 4 


7737 


3356 




TAD A 


7740 


2330 




ISZ ENTRY 


7741 


1730 




TAD I ENTRY 


7742 


3357 




DCA B 


7743 


2330 




ISZ ENTRY 


7744 


4407 




JMS INTREPTER /Floating Point 
Package 


7745 


5757 




FGET I B 


7746 


6357 




FPUT B 


7747 


0000 




FEXT 


7750 


4407 




JMS INTREPTER 


7751 


3357 




FMPY B 


7752 


0000 




FEXT 


7753 


2356 




ISZ A 


7754 


5350 




JMP. -4 


7755 


5730 




JMP I ENTRY 


7756 


0000 


A, 




7 75 7 


0000 


B, 




7760 

7761 


0000 

0000 




• 
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